home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2000 Reader Awards / macformat-098.iso / Demos / PPC Client / omnis_ns.scr < prev    next >
Encoding:
Text File  |  2000-01-12  |  739 b   |  40 lines  |  [TEXT/mdos]
  1. tell application "$p"
  2.     set winList to list windows
  3.     set allWindows to {}
  4.     repeat with windowId in winList
  5.         set windowInfoList to (get window info (windowId))
  6.         set allWindows to (windowInfoList & allWindows)
  7.     end repeat
  8.     quit
  9. end tell
  10.  
  11. tell application "$f"
  12.     repeat (60) times
  13.         if exists application process "$n" then
  14.             delay 1
  15.         else
  16.             exit repeat
  17.         end if
  18.     end repeat
  19. $m
  20. end tell
  21.  
  22. tell application "$p"
  23.     webActivate
  24.     set windowId to 0
  25.     set winList to list windows
  26.     if (count winList) > 0 then
  27.         set windowId to item 1 of winList
  28.     end if
  29.     set even to 1
  30.     repeat with winUrl in allWindows
  31.         if even = 1 then
  32.             OpenURL winUrl toWindow windowId
  33.             set windowId to 0
  34.             set even to 0
  35.         else
  36.             set even to 1
  37.         end if
  38.     end repeat
  39. end tell
  40.